(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     19048,        513]
NotebookOptionsPosition[     18244,        480]
NotebookOutlinePosition[     18590,        495]
CellTagsIndexPosition[     18547,        492]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Refractive Indices", "Subtitle",
 CellChangeTimes->{{3.5571539491288195`*^9, 3.557153957502299*^9}, 
   3.5593198068789062`*^9}],

Cell["\<\
Written by Dan O' Brien
email: danobrie@gmail.com\
\>", "Text",
 CellChangeTimes->{{3.5689955583740234`*^9, 3.5689955730302734`*^9}, {
  3.5689990702382812`*^9, 3.5689991083242188`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"BeginPackage", "[", "\"\<Indices`\>\"", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nPTCDIc8", "::", "usage"}], "=", 
  "\"\<nPTCDIc8[\[Omega]] gets complex refractive index of \
PTCDI-\!\(\*SubscriptBox[\(C\), \(8\)]\) with \[Omega] in \
\!\(\*SuperscriptBox[\(cm\), \(-1\)]\).  Valid in the ranges 1501 < \[Omega] \
< 3498 and 9091 < \[Omega] < 40000.  Determined from spectroscopic \
ellipsometry of vapor deposited thin films.\>\""}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nSiO2", "::", "usage"}], "=", 
  "\"\<nSiO2[\[Omega]] gets complex refractive index of silica with \[Omega] \
in \!\(\*SuperscriptBox[\(cm\), \(-1\)]\).  Valid in the range 1492 < \
\[Omega] < 47619. http://www.seas.ucla.edu/~pilon/Publications/AO2007-1.pdf  \
Equation 20\>\""}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nSi", "::", "usage"}], " ", "=", " ", 
   "\"\<nSi[\[Omega]] gets complex refractive index of silicon with \[Omega] \
in \!\(\*SuperscriptBox[\(cm\), \(-1\)]\).  Valid in the ranges 909 < \
\[Omega] < 6000 and 6000 \[LessEqual] \[Omega] \[LessEqual] 40000.\>\""}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"DirectoryName", "[", "$InputFileName", "]"}], "]"}], 
  ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.5689836225185547`*^9, 3.568983657510742*^9}, {
   3.573392238205078*^9, 3.5733922444941406`*^9}, 3.5733926514785156`*^9, {
   3.597768430245575*^9, 3.5977685085275126`*^9}, {3.597768540335969*^9, 
   3.5977687940120144`*^9}, {3.5977688453235044`*^9, 3.597768885431175*^9}, {
   3.597769147858836*^9, 3.597769148077237*^9}, {3.5978392144531364`*^9, 
   3.5978392173079414`*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"PTCDI", "-", 
    SubscriptBox["C", "8"]}], TraditionalForm]]],
 " \[Eta] & \[Kappa]"
}], "Section",
 CellChangeTimes->{{3.5571539680849037`*^9, 3.557153971174081*^9}, 
   3.5593198068789062`*^9, {3.5596890707890663`*^9, 3.559689079587482*^9}, {
   3.5639058177841797`*^9, 3.5639058299677734`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mIRnkData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"FindFile", "[", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Directory", "[", "]"}], ","}], "*)"}], 
      "\"\<n_ptcdi-c8_1500-3500cm-1.txt\>\"", "]"}], ",", "\"\<Table\>\""}], 
    "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"PDIc8", " ", "genosc", " ", "1500"}], "-", 
    RowBox[{"3500", " ", 
     RowBox[{"1", "/", "cm"}], "  ", "table", " ", "of", " ", "values"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"nPTCDIc8mIR", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"mIRnkData", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"4", ";;"}], ",", 
       RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], 
    RowBox[{"(*", 
     RowBox[{",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "2"}]}], "*)"}], "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"Argument", " ", "in", " ", 
    SuperscriptBox["cm", 
     RowBox[{"-", "1"}]]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"kPTCDIc8mIR", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"mIRnkData", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"4", ";;"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], 
    RowBox[{"(*", 
     RowBox[{",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "2"}]}], "*)"}], "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"Argument", " ", "in", " ", 
    SuperscriptBox["cm", 
     RowBox[{"-", "1"}]]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"VISnkData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"(*", "ToFileName", "*)"}], 
    RowBox[{
     RowBox[{"FindFile", "[", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Directory", "[", "]"}], ","}], "*)"}], 
      "\"\<n_ptcdi-c8_250-1100nm.txt\>\"", "]"}], ",", "\"\<Table\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nPTCDIc8VIS", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"(", 
     RowBox[{"VISnkData", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"4", ";;"}], ",", 
        RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], ")"}], "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"Argument", " ", "in", " ", "nm"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"kPTCDIc8VIS", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"(", 
     RowBox[{"VISnkData", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"4", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ")"}], "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"Argument", " ", "in", " ", "nm"}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"nPTCDIc8", "[", 
    RowBox[{"\[Omega]_", "?", "NumberQ"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"nPTCDIc8", "[", "\[Omega]", "]"}], "=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"nPTCDIc8VIS", "[", 
           FractionBox[
            SuperscriptBox["10", "7"], "\[Omega]"], "]"}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"kPTCDIc8VIS", "[", 
            FractionBox[
             SuperscriptBox["10", "7"], "\[Omega]"], "]"}]}]}], ",", 
         RowBox[{"9091", "<", "\[Omega]", "<", "40000"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"nPTCDIc8mIR", "[", "\[Omega]", "]"}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"kPTCDIc8mIR", "[", "\[Omega]", "]"}]}]}], ",", 
         RowBox[{"1501", "<", "\[Omega]", "<", "3498"}]}], "}"}]}], "}"}], 
     "]"}], 
    RowBox[{"(*", 
     RowBox[{"\[Omega]", " ", "in", " ", 
      SuperscriptBox["cm", 
       RowBox[{"-", "1"}]]}], "*)"}]}]}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.5593198068867188`*^9, {3.559664266600586*^9, 3.5596643154453125`*^9}, {
   3.5596643521328125`*^9, 3.5596643850078125`*^9}, {3.55966443965625*^9, 
   3.55966445403125*^9}, {3.5596644963203125`*^9, 3.559664549265625*^9}, {
   3.5596646019453125`*^9, 3.559664645080078*^9}, {3.559664683720703*^9, 
   3.559664690439453*^9}, {3.5596648101035156`*^9, 3.5596649184316406`*^9}, {
   3.5596649937539062`*^9, 3.5596650064179688`*^9}, {3.5596650380351562`*^9, 
   3.5596651362226562`*^9}, {3.5596652674492188`*^9, 
   3.5596652741054688`*^9}, {3.559665354232422*^9, 3.5596653974589844`*^9}, {
   3.5596654540214844`*^9, 3.559665482919922*^9}, {3.55968916949044*^9, 
   3.5596891716900434`*^9}, {3.559689301575872*^9, 3.5596893184863014`*^9}, {
   3.5606169149521484`*^9, 3.560617110540039*^9}, 3.560617149930664*^9, {
   3.5606172002197266`*^9, 3.5606172435947266`*^9}, {3.5606173692285156`*^9, 
   3.5606173886904297`*^9}, 3.560617433745117*^9, 3.560617556588867*^9, {
   3.560636563003671*^9, 3.560636606012947*^9}, {3.5606366489598227`*^9, 
   3.5606367388003798`*^9}, {3.5606372542252855`*^9, 
   3.5606372964701595`*^9}, {3.560639602171809*^9, 3.560639606555417*^9}, {
   3.5606457632931857`*^9, 3.5606457636207857`*^9}, {3.560686114001622*^9, 
   3.560686128137431*^9}, {3.560686216694496*^9, 3.560686240946883*^9}, {
   3.5606863641979327`*^9, 3.560686374620529*^9}, {3.5608691453197775`*^9, 
   3.5608691503100634`*^9}, 3.561292449109581*^9, {3.5612929639903016`*^9, 
   3.5612929690303087`*^9}, {3.5612931782006016`*^9, 3.561293181460606*^9}, {
   3.5612934397309675`*^9, 3.5612934401909685`*^9}, {3.5612935699011497`*^9, 
   3.561293574951157*^9}, 3.561299136080943*^9, {3.567213175548152*^9, 
   3.5672132861991463`*^9}, 3.5689833794228516`*^9, 3.568983443470703*^9, {
   3.5733921040253906`*^9, 3.573392118501953*^9}, {3.5742970518344984`*^9, 
   3.574297056779707*^9}, {3.576285950517462*^9, 3.5762859551194696`*^9}, {
   3.5762860325580053`*^9, 3.576286034492409*^9}, {3.5764566980875063`*^9, 
   3.576456701363512*^9}, {3.576456949611548*^9, 3.5764569518111515`*^9}, {
   3.577037408055572*^9, 3.5770374118619785`*^9}, {3.5977689543062963`*^9, 
   3.5977689581907034`*^9}, {3.597769117813184*^9, 3.597769153256446*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["SiO2 \[Eta] & \[Kappa]", "Section",
 CellChangeTimes->{{3.557153998225628*^9, 3.5571540016438236`*^9}, 
   3.5593198068867188`*^9, 3.563905832848633*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"nSiO2Vis2", "[", "\[Lambda]_", "]"}], ":=", 
   SqrtBox[
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"0.6961663", " ", 
       SuperscriptBox["\[Lambda]", "2"]}], 
      RowBox[{
       SuperscriptBox["\[Lambda]", "2"], "-", "0.0684043"}]], "+", 
     FractionBox[
      RowBox[{"0.4079426", " ", 
       SuperscriptBox["\[Lambda]", "2"]}], 
      RowBox[{
       SuperscriptBox["\[Lambda]", "2"], "-", 
       SuperscriptBox[
        RowBox[{"(", "0.1162414", ")"}], "2"]}]], "+", 
     FractionBox[
      RowBox[{"0.8974794", " ", 
       SuperscriptBox["\[Lambda]", "2"]}], 
      RowBox[{
       SuperscriptBox["\[Lambda]", "2"], "-", 
       SuperscriptBox[
        RowBox[{"(", "9.896161", ")"}], "2"]}]]}]]}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Lambda]", " ", "in", " ", "microns", " ", "0.210"}], "-", 
    RowBox[{"6.7", "\[Mu]m"}]}], "*)"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"http", ":"}], "//", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"www", ".", "seas", ".", "ucla", ".", "edu"}], "/", 
        RowBox[{"~", "pilon"}]}], "/", "Publications"}], "/", "AO2007"}], "-", 
     RowBox[{"1.", "pdf", "  ", "Equation", " ", "20"}]}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nSiO2", "[", 
   RowBox[{"\[Omega]_", "?", "NumberQ"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"nSiO2", "[", "\[Omega]", "]"}], "=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"nSiO2Vis2", "[", 
        FractionBox[
         SuperscriptBox["10", "4"], "\[Omega]"], "]"}], ",", 
       RowBox[{"1492", "<", "\[Omega]", "<", "47619"}]}], "}"}], "}"}], "]"}], 
   RowBox[{"(*", 
    RowBox[{"\[Omega]", " ", "in", " ", 
     SuperscriptBox["cm", 
      RowBox[{"-", "1"}]]}], "*)"}]}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.557154061975274*^9, 3.557154062218288*^9}, 
   3.5593198068945312`*^9, {3.561292420489541*^9, 3.5612924259395485`*^9}, {
   3.567213319598805*^9, 3.5672133399724407`*^9}, {3.567213374932102*^9, 
   3.5672133956801386`*^9}, {3.567213581934866*^9, 3.567213596879692*^9}, {
   3.5672136390153666`*^9, 3.5672136888106537`*^9}, {3.5762843282634115`*^9, 
   3.5762843316954174`*^9}, 3.5770374959149265`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Si \[Eta] & \[Kappa]", "Section",
 CellChangeTimes->{{3.557154028521361*^9, 3.5571540345807076`*^9}, 
   3.5593198069101562`*^9, 3.5639058342714844`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"h", "=", 
       RowBox[{"4.135668", "\[Times]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "15"}]}]}]}], " ", 
      RowBox[{"(*", 
       RowBox[{"eV", " ", "s"}], "*)"}], ",", "\n", 
      RowBox[{"c", "=", 
       RowBox[{"2.998", "\[Times]", 
        RowBox[{"10", "^", "17"}]}]}]}], " ", 
     RowBox[{"(*", 
      RowBox[{"nm", "/", "s"}], "*)"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Clear", "[", 
      RowBox[{"nSi", ",", "nkSiData", ",", "\[Eta]Si", ",", "\[Kappa]Si"}], 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"nkSiData", "=", 
      RowBox[{"Import", "[", 
       RowBox[{"(*", "ToFileName", "*)"}], 
       RowBox[{
        RowBox[{"FindFile", "[", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Directory", "[", "]"}], ","}], "*)"}], 
         "\"\<n_Si_0.2-6.6eV.txt\>\"", "]"}], ",", "\"\<Table\>\""}], "]"}]}],
      ";", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Argument", " ", "in", " ", "eV"}], ",", " ", 
       RowBox[{"complex", " ", "dielectric", " ", "constant"}]}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"\[Eta]Si", "=", 
      RowBox[{"Interpolation", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"nkSiData", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"4", ";;"}], ",", 
            RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], ")"}], "/.", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"a_", ",", "re_", ",", "im_"}], "}"}], "\[Rule]", 
         RowBox[{"{", " ", 
          RowBox[{
           RowBox[{"(", 
            FractionBox[
             RowBox[{"c", " ", "h"}], "a"], ")"}], ",", 
           RowBox[{"Re", "@", 
            SqrtBox[
             RowBox[{"re", "+", 
              RowBox[{"\[ImaginaryI]", "  ", "im"}]}]]}]}], "}"}]}]}], 
       "]"}]}], 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Argument", " ", "in", " ", "nm"}], ",", " ", "\[Eta]"}], 
      "*)"}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Kappa]Si", "=", 
      RowBox[{"Interpolation", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"nkSiData", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"4", ";;"}], ",", 
            RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], ")"}], "/.", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"a_", ",", "re_", ",", "im_"}], "}"}], "\[Rule]", 
         RowBox[{"{", " ", 
          RowBox[{
           RowBox[{"(", 
            FractionBox[
             RowBox[{"c", " ", "h"}], "a"], ")"}], ",", 
           RowBox[{"Im", "@", 
            SqrtBox[
             RowBox[{"re", "+", 
              RowBox[{"\[ImaginaryI]", " ", "im"}]}]]}]}], "}"}]}]}], "]"}]}], 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Argument", " ", "in", " ", "nm"}], ",", " ", "\[Kappa]"}], 
      "*)"}], ";"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nSiIR", "[", "\[Lambda]_", "]"}], ":=", 
   RowBox[{"\[Sqrt]", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{"10.6684293", "*", 
        SuperscriptBox["\[Lambda]", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Lambda]", "2"], "-", 
        SuperscriptBox["0.301516485", "2"]}]], "+", 
      FractionBox[
       RowBox[{"0.003043475", 
        SuperscriptBox["\[Lambda]", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Lambda]", "2"], "-", 
        SuperscriptBox["1.13475115", "2"]}]], "+", 
      FractionBox[
       RowBox[{"1.54133408", 
        SuperscriptBox["\[Lambda]", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Lambda]", "2"], "-", 
        SuperscriptBox["1104.0", "2"]}]]}], ")"}]}]}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Lambda]", " ", "in", " ", "microns", " ", "1.36"}], "-", 
    RowBox[{"11.0", "\[Mu]m"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nSi", "[", 
    RowBox[{"\[Omega]_", "?", "NumberQ"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"nSi", "[", "\[Omega]", "]"}], "=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"nSiIR", "[", 
          FractionBox[
           SuperscriptBox["10", "4"], "\[Omega]"], "]"}], ",", 
         RowBox[{"909", "<", "\[Omega]", "<", "6000"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Eta]Si", "[", 
           FractionBox[
            SuperscriptBox["10", "7"], "\[Omega]"], "]"}], "+", 
          RowBox[{"\[ImaginaryI]", "  ", 
           RowBox[{"\[Kappa]Si", "[", 
            FractionBox[
             SuperscriptBox["10", "7"], "\[Omega]"], "]"}]}]}], ",", 
         RowBox[{
         "6000", "\[LessEqual]", "\[Omega]", "\[LessEqual]", "40000"}]}], 
        "}"}]}], "}"}], "]"}]}]}], 
  RowBox[{"(*", 
   RowBox[{"\[Omega]", " ", "in", " ", 
    SuperscriptBox["cm", 
     RowBox[{"-", "1"}]]}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetDirectory", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"End", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EndPackage", "[", "]"}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.55715408149139*^9, 3.557154081765406*^9}, 
   3.5571541214376755`*^9, 3.5593198069179688`*^9, {3.559689319905904*^9, 
   3.559689321731107*^9}, {3.560870975258263*^9, 3.5608711212084675`*^9}, {
   3.5608711586985197`*^9, 3.56087120870859*^9}, {3.5612923795394835`*^9, 
   3.5612923820994873`*^9}, {3.5612930907104793`*^9, 3.5612930971704884`*^9}, 
   3.5612991501909623`*^9, {3.5672137294175253`*^9, 3.567213730727927*^9}, {
   3.5672141677006936`*^9, 3.56721419415834*^9}, {3.5672142721584773`*^9, 
   3.567214276058484*^9}, {3.567214309816943*^9, 3.567214360938233*^9}, {
   3.5672143976138973`*^9, 3.567214400234702*^9}, {3.5672144412783737`*^9, 
   3.567214505722087*^9}, {3.568983569048828*^9, 3.5689835694941406`*^9}, {
   3.5733921285253906`*^9, 3.573392134017578*^9}, {3.5742970858113585`*^9, 
   3.574297090257366*^9}, {3.5977688905333843`*^9, 3.597768896086994*^9}, {
   3.5977689835885477`*^9, 3.597768992402563*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1261, 816},
WindowMargins->{{121, Automatic}, {Automatic, 44}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 134, 2, 49, "Subtitle"],
Cell[716, 26, 196, 5, 47, "Text"],
Cell[915, 33, 1880, 38, 252, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[2820, 75, 352, 9, 71, "Section"],
Cell[3175, 86, 6067, 142, 231, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[9279, 233, 159, 2, 71, "Section"],
Cell[9441, 237, 2310, 63, 127, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[11788, 305, 159, 2, 71, "Section"],
Cell[11950, 309, 6266, 167, 356, "Input",
 InitializationCell->True]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
